home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor2 / weight2.src < prev    next >
Text File  |  1993-02-18  |  483b  |  19 lines

  1. %%HP: T(3)A(D)F(.);
  2. @ WEIGHT2, Weighted (Grouped) Data Statistics, by Joseph K. Horn
  3. DIR
  4.   WTOT @ Weighted Total
  5.     \<< \GSX*Y
  6.     \>>
  7.   WMEAN @ Weighted Mean
  8.     \<< \GSX*Y \GSY /
  9.     \>>
  10.   WSDEV @ Weighted Sample Standard Deviation
  11.     \<< \GSY \GSDAT OBJ\-> EVAL DROP 0 1 ROT
  12.       START ROT SQ ROT * +
  13.       NEXT OVER * \GSX*Y SQ - SWAP DUP 1 - * / \v/
  14.     \>>
  15.   WPSDEV @ Weighted Population Standard Deviation
  16.     \<< WMEAN 1 \GS+ WSDEV \GS- DROP
  17.     \>>
  18. END
  19.